home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 6
/
006.d81
/
cover page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
41 lines
3 ifa>.then160
4 print"[147]"
7 goto100
8 :
10 sys 828
20 poke198,0:wait198,1
30 poke53265,peek(53265)and223
40 poke53270,peek(53270)and239
50 poke53272,21
55 print"[147]"
60 goto63000
70 :
80 :
90 :
100 v=53248:s=54272
110 pokev+32,.:pokev+33,.:print" [204][207][193][196][211][212][193][210] [206]umber 6"
120 print" '[212]his month we decided to give humour":print
130 print"a try. [204]et us know how you like it!!'":print
140 print" <[208]lease don't throw tomatoes!!> ":print
150 print" ":print
155 print" ":print
157 print" [195]over designed by [202]immy [215]eiler.":print""
160 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"cover 7.p",8,1
166 ifa=1thena=2:load"unpack.ml300",8,1
170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
177 pokes+15,3:pokes+7,7:pokes+14,18
180 print"[145][156][146][208]ress space bar to view cover."
182 print"[208]ress it again to return to menu."
185 poke198,0:wait198,1
190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
200 :
300 :
63000 rem return back to menu
63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
63020 poke53280,0
63025 printchr$(14)
63030 print"[147][204]aunching [212]able of [195]ontents";
63035 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run"
63040 poke631,13:poke632,13:poke198,2:end